Código fuente de 'Crea variables de formularios 2.asp'
<html>
<title>Crea variables de formularios 2 - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
<body bgcolor="#FFFFFF">
</head>
<p align="center"><b><font size="3">Crea variables de formularios 2</font></b></p>
Este código te permitirá crear variables dinámicamente a partir de los datos
procedentes de formularios.<br>
Elige en el formulario *querystring o *form y escribe un nombre de variable, luego pulsa
el botón "Ejecutar". <br>
<br>
<b>Nota: </b>el número de variables a crear lo puedes modificar en la variable 'NumVar'.
<table border=1 width=500 align=center>
<!--
'
' http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=6334&lngWId=4
' Description: This script will allow you to dynamically generate variables for
' the huge forms that no one likes to create.
' How to use: Type in the variable name select querystring or form and hit submit.
' To make more variables increase the how many count.
' Coder: Anthony J Biondo Jr. (anthonyb@inbridesburg.com)
'
-->
<HTML>
<%
' Número de variables a crear
NumVar=50
mycreate = request.querystring("create")
if mycreate = "" Then
%>
<br>
<FORM method="post" action="Crea variables de formularios 2.asp?create=1">
<FONT face="Verdana, Arial, Helvetica, sans-serif" size="2"><B>Genera variables dinámicamente </B><BR>
<BR>
Variable Name: </FONT>
<INPUT type="text" name="NombreVar">
<BR>
<FONT face="Verdana, Arial, Helvetica, sans-serif" size="2">Request Type: </FONT>
<INPUT type="radio" name="requesttype" value="querystring" checked>
<FONT face="Verdana, Arial, Helvetica, sans-serif" size="2">Querystring</FONT>
<INPUT type="radio" name="requesttype" value="form">
<FONT face="Verdana, Arial, Helvetica, sans-serif" size="2">Form </FONT><BR>
<BR>
<INPUT type="submit" name="Submit" value="Ejecutar">
</FORM>
<%
else
%>
<br>
<FONT face="Verdana, Arial, Helvetica, sans-serif" size="2"><B>Genera
variables dinámicamente</FONT> - Hecho<BR></B>
<BR>
<BR>
<%
NombreVar = request.form("NombreVar")
requesttype = request.form("requesttype")
contador = 0
Do While contador < NumVar
myvaroutput = myvaroutput & NombreVar & contador & " = replace(request." & requesttype & "(" & chr(34) & NombreVar & contador & chr(34) & "), " & chr(34) & "'" &chr(34) & ", " &chr(34) & "''" & chr(34) & ")"
myvaroutput = myvaroutput & "<BR>"
myvaroutput2 = myvaroutput2 & NombreVar & contador & " = TRIM(" & NombreVar & contador & ")"
myvaroutput2 = myvaroutput2 & "<BR>"
contador = contador + 1
loop
response.write "<FONT face='arial' size='2'>"
response.write "' Recoge variables y reemplaza comillas simples por comillas<BR>"
response.write myvaroutput
response.write "<BR><BR>"
response.write "' Elimina todos los espacios de las variables<BR>"
response.write myvaroutput2
response.write "</FONT>"
%> <%
End if
%>
</BODY>
</HTML>